home *** CD-ROM | disk | FTP | other *** search
- ;Pascal macros for use with TASM
- ;By John M. Majkrzak CIS# 76617,264
- ;See assembler source file for usage example.
-
- include genmac.asm
-
- m_Entry macro LocalSize
- push bp ;Standard TPascal entry code.
- mov bp, sp
- ifb <LocalSize>
- exitm
- endif
- ife <LocalSize>
- exitm
- endif
- sub sp, LocalSize ;Allocate space for local variables
- endm
-
- m_Exit macro
- mov sp,bp ;Standard exit for TPascal.
- pop bp
- SizeOnStack = type OnStack ;OnStack struc must be used with
- SizeRetAddr = type OnStack.RetAddr ;this macro
- ret SizeOnStack - SizeRetAddr - 2 ;Far or near is determined by entry.
- endm
-
-
-
-